function This = replace(This,Data,Start,Comment)
% replace  [Not a public function] Safely replace tseries object properties.
%
% Backend IRIS function.
% No help provided.

% -IRIS Toolbox.
% -Copyright (c) 2007-2015 IRIS Solutions Team.

%--------------------------------------------------------------------------

This.data = Data;
if nargin > 2
    This.start = Start(1);
end
requiredSize = size(This.data);
requiredSize = [1,requiredSize(2:end)];
This.Comment = cell(requiredSize);
This.Comment(:) = { '' };
if nargin > 3 
    if iscell(Comment)
        This.Comment(:) = Comment(:);
    elseif ischar(Comment)
        This.Comment(:) = { Comment };
    end
end
This = mytrim(This);

end
